home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].zip / Nibble Volume 12, No. 12 (1991-12)(MindCraft Publishing)(Side A)[a].po / BIT.BREAKER.bas < prev    next >
BASIC Source File  |  1996-12-24  |  342b  |  9 lines
  1. 10  REM  PROGRAM BIT.BREAKER
  2. 20  REM  THIS ROUTINE BREAKS A NUMBER UP INTO THE BINARY BITS
  3. 30  HOME : PRINT "INPUT A NUMBER";: INPUT N
  4. 40  IF N <0  OR N >255  THEN  HOME : GOTO 30
  5. 50  FOR BT = 0 TO 7
  6. 60 V = (N - INT(N/2) *2): PRINT : PRINT "BIT ";BT;" IS ";V: REM  TAKE EACH BIT VALUE
  7. 70 N =  INT(N/2): REM  REDUCE VALUE
  8. 80  NEXT 
  9. 90  GOTO 30